home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 21
/
AMIGAplus Sonderheft 21 (1999)(ICP)(DE)[!].iso
/
PublicDomain
/
System
/
AHelp1_2
/
Install
< prev
next >
Wrap
Text File
|
1999-08-23
|
3KB
|
134 lines
;
; AHelp installer Script - by Software Failure/Airsoft
;
; if there are any problems, email me: Andreas.Falkenhahn@gmx.de
;
(message (cat "\n\nAHelp V1.2 \n\n(c) 1997-99 by Andreas Falkenhahn\nArtworX by THE FALCONER\n\n"
"This script installs AHelp and the prefs\n"
"program to your harddisk and makes it ready\n"
"to use."
)
)
(welcome)
(set #install "Installing AHelp...")
(set #dir1 "Where do you want AHelp to be installed?\n(WBStartup is recommended)")
(set #dir2 "Where do you want AHelp Prefs to be installed?")
(set #dir3 "Where do you want the AHelp documentation to be installed?")
(set #dir4 "Where do you want the developer files to be installed?")
(set #finished "\nAHelp was successfully installed on your harddisk!\n\nHave fun!")
(set #language "\nSelect the language you want to use for AHelp")
(set #developer "\nWould you like to get the developer files\n(cd+ct) for translators installed?")
(set desti
(askdir
(prompt #dir1)
(help @askdir-help)
(default "SYS:WBStartup")
)
)
(set dest1
(askdir
(prompt #dir2)
(help @askdir-help)
(default "SYS:Prefs")
)
)
(set dest2
(askdir
(prompt #dir3)
(help @askdir-help)
(default "Help:")
)
)
(set lang
(askchoice
(prompt #language)
(help @askchoice-help)
(choices "english" "deutsch")
)
)
(set dev
(askbool
(prompt #developer)
(help @askbool-help)
)
)
(if (= dev 1) (
(set devdir
(askdir
(prompt #dir4)
(default "LOCALE:")
(help @askdir-help)
)
)
))
(working #install)
(copyfiles
(source "WBStartup/AHelp")
(dest desti)
(nogauge)
(infos)
)
(copyfiles
(source "Prefs/AHelp")
(dest dest1)
(nogauge)
(infos)
)
(copyfiles
(source "AHelp.guide")
(dest dest2)
(nogauge)
(infos)
)
(textfile
(dest "ENVARC:AHelp.path")
(append desti)
)
(copyfiles
(source "envarc:AHelp.path")
(dest "env:")
(nogauge)
)
(if (= lang 1) (
(copyfiles
(source "Catalogs/deutsch/AHelp.catalog")
(dest "Locale:Catalogs/deutsch")
(nogauge)
)
))
(if (= dev 1) (
(copyfiles
(source "Catalogs")
(dest devdir)
(pattern "AHelp#?")
(nogauge)
)
))
(copyfiles
(source "WBStartup/dat/AHelp.info")
(dest "ENV:SYS")
(nogauge)
)
(message #finished)
(exit (quiet))